home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MASM.ZIP / SAMPLES / MIXED / BASIC.AS$ / BASIC.bin
Encoding:
Text File  |  1991-02-14  |  559 b   |  20 lines
  1. ; Called by BASMAIN.BAS
  2. ; Assemble with ML /c BASIC.ASM
  3.  
  4.         .MODEL  medium
  5.  
  6. Power2  PROTO   PASCAL, Factor:PTR WORD, Power:PTR WORD
  7.         .CODE
  8. Power2  PROC    PASCAL, Factor:PTR WORD, Power:PTR WORD
  9.  
  10.         mov     bx, WORD PTR Factor   ; Load Factor into
  11.         mov     ax, [bx]              ;  AX
  12.         mov     bx, WORD PTR Power    ; Load Power into
  13.         mov     cx, [bx]              ;   CX
  14.         shl     ax, cl                ; AX = AX * (2 to power of CX)
  15.                 
  16.         ret
  17. Power2  ENDP     
  18.  
  19.         END
  20.